MACD 5/MACD 5.bin/workbench/tools/czesc_1/cliva/example_dmswin.config

Text File | 1993-04-05 | 7KB | 319 lines

-SET_VAR GREY 0
-SET_VAR BLACK 1
-SET_VAR WHITE 2
-SET_VAR BLUE 3

-POS_WINDOW 0 200
-DEF_ICON 800 11 100
-SIZE_GADGET 300 13
-PIXEL_BETWEEN_GADGET 0 0
-PIXEL_FROM_BORDER 8 9 2 4
-NB_GADGETS 2 6
-WINDOW_TITLE "DMSWin with CliVa 2.0 (c) 1991-1993 Christian Warren"
-DEF_WINDOW_EXECUTE CON:000/011/640/189/DMSWin_Cli
#-ICONIFIED
#-NO_DRAG_BAR
#-ICON_WHEN_EXECUTE
-COLOR_BORDER_GADGET WHITE BLACK
-COLOR_WINDOW BLACK WHITE
-COLOR_BACKGROUND BLUE
-COLOR_GADGET_DEF BLACK GREY
#-ON_SCREEN Workbench
#-NO_MENU
-GADGET_ICONIFIED DMSWin
-FONT_STYLE 0
#-FONT zinc.font 8
#-UP_TO_DOWN

=S
# executable DMS
\vs[50]DMS

# READ Device
\vs[101]DF0:
# READ TextPath Displayed
\vs[102]TEXT -OFF-
# READ Real TextPath
\vs[103]
# READ Encrypt Diplayed
\vs[111]ENCRYPT -OFF-
# READ Real Encrypt PassWord argument
\vs[112]
# READ Real Encrypt PassWord
\vs[113]
# READ CMODE
\vs[104]BEST
# READ LOWTrack
\vs[105]0
# READ HIGHTrack
\vs[106]79
# READ NOVAL Diplayed
\vs[107]NOVAL OFF
# READ Real NOVAL argument
\vs[108]
# READ NOZERO Diplayed
\vs[109]NOZERO OFF
# READ Real NOZERO argument
\vs[110]

# WRITE Device
\vs[201]DF0:
# WRITE Decrypt Diplayed
\vs[211]DECRYPT -OFF-
# WRITE Real Decrypt PassWord argument
\vs[212]
# WRITE Real Decrypt PassWord
\vs[213]
# WRITE LOWTrack
\vs[205]0
# WRITE HIGHTrack
\vs[206]79
# WRITE NOVAL Diplayed
\vs[207]NOVAL OFF
# WRITE Real NOVAL argument
\vs[208]
# WRITE NOTEXT Diplayed
\vs[209]NOTEXT OFF
# WRITE Real NOTEXT argument
\vs[210]
# WRITE NOPAUSE Diplayed
\vs[202]NOPAUSE OFF
# WRITE Real NOPAUSE argument
\vs[203]

# REPACK CMODE
\vs[304]BEST
# REPACK LOWTrack
\vs[305]0
# REPACK HIGHTrack
\vs[306]79

# WRITE FULL Diplayed
\vs[401]FULL OFF
# WRITE Real FULL argument
\vs[402]

=D* "Choose the command" BLACK BLUE
=L

=D "DMS Read"
\p[2]

=D "DMS Write"
\p[3]

=D "DMS RePack"
\p[4]

=D "DMS View"
\p[5]

=D "DMS Text"
\p[6]

=D "DMS Test"
\p[7]

=D "DMS Help"
\vu[50] Help\w

=D "Find DMS on disk"
\vs[50]\f1[C:][Where is that DMS file?][*dms*]

=D "ICONIFY" WHITE BLUE
\I

=D "QUIT" WHITE BLUE
\Q

=P
=[ -1 "MAIN MENU" WHITE BLUE
\p[1]


#***************************************************************************#
#*                                DMS READ                                 *#
#***************************************************************************#


=D* "DMS Read" BLACK BLUE
=L

=D "FROM [101]"
\vs[1]\pa[Request][Device?][DF0:][DF1:][Other...][DF0:][DF1:][Other]
\ved[1][Other]\vs[1]\q[RAD:][Device?]
\vs[101]\vu[1]
\vc[1]

=D "[102][103]"
\vs[1]\vu[102]
\ved[1][TEXT -OFF-]\vs[102][]\vs[103]TEXT \f1[-][Text?]
\ved[1][]\vs[102][TEXT -OFF-]\vs[103][]
\vc[1]

=D "[111][112]"
\vs[1]\vu[111]
\ved[1][ENCRYPT -OFF-]\vs[111][]\vs[113]\q[^113][PassWord?]
\ved[1][ENCRYPT -OFF-]\vs[112]ENCRYPT "\vu[113]"
\ved[1][]\vs[111][ENCRYPT -OFF-]\vs[112][]
\vc[1]

=D "CMODE = [104]"
\vs[1]\vu[104]
\ved[1][NONE]\vs[104]HEAVY1
\ved[1][HEAVY1]\vs[104]HEAVY2
\ved[1][HEAVY2]\vs[104]BEST
\ved[1][BEST]\vs[104]NONE
\vc[1]

=D "LOW = [105]"
\vs[105]\q[^105][LOW TRACK?]

=D "HIGH = [106]"
\vs[106]\q[^106][HIGH TRACK?]

=D "[107]"
\vs[1]\vu[107]
\ved[1][NOVAL OFF]\vs[107][NOVAL ON]\vs[108][NOVAL]
\ved[1][NOVAL ON]\vs[107][NOVAL OFF]\vs[108][]
\vc[1]

=D "[109]"
\vs[1]\vu[109]
\ved[1][NOZERO OFF]\vs[109][NOZERO ON]\vs[110]NOZERO
\ved[1][NOZERO ON]\vs[109][NOZERO OFF]\vs[110][]
\vc[1]

=D "START" WHITE BLUE
\vu[50] READ \f1[-][TO which DMS File?][*.dms] FROM \vu[101] \vu[103] CMODE \vu[104] LOW \vu[105] HIGH \vu[106] \vu[108] \vu[110] \vu[112]\w


#***************************************************************************#
#*                                DMS WRITE                                *#
#***************************************************************************#


=D* "DMS Write" BLACK BLUE
=L

=D "TO [201]"
\vs[1]\pa[Request][Device?][DF0:][DF1:][Other...][DF0:][DF1:][Other]
\ved[1][Other]\vs[1]\q[RAD:][Device?]
\vs[201]\vu[1]
\vc[1]

=D "[211][212]"
\vs[1]\vu[211]
\ved[1][DECRYPT -OFF-]\vs[211][]\vs[213]\q[^213][PassWord?]
\ved[1][DECRYPT -OFF-]\vs[212]DECRYPT "\vu[213]"
\vnd[1][DECRYPT -OFF-]\vs[211][DECRYPT -OFF-]\vs[212]
\vc[1]

=D "LOW = [205]"
\vs[205]\q[^205][LOW TRACK?]

=D "HIGH = [206]"
\vs[206]\q[^206][HIGH TRACK?]

=D "[207]"
\vs[1]\vu[207]
\ved[1][NOVAL OFF]\vs[207][NOVAL ON]\vs[208][NOVAL]
\ved[1][NOVAL ON]\vs[207][NOVAL OFF]\vs[208][]
\vc[1]

=D "[209]"
\vs[1]\vu[209]
\ved[1][NOTEXT OFF]\vs[209][NOTEXT ON]\vs[210][NOTEXT]
\ved[1][NOTEXT ON]\vs[209][NOTEXT OFF]\vs[210][]
\vc[1]

=D "[202]"
\vs[1]\vu[202]
\ved[1][NOPAUSE OFF]\vs[202][NOPAUSE ON]\vs[203][NOPAUSE]
\ved[1][NOPAUSE ON]\vs[202][NOPAUSE OFF]\vs[203][]
\vc[1]

=L

=D "START" WHITE BLUE
\vu[50] WRITE \f1[-][FROM which DMS File?][*.dms] FROM \vu[201] LOW \vu[205] HIGH \vu[206] \vu[208] \vu[210] \vu[203]\w


#***************************************************************************#
#*                             DMS REPACK                                  *#
#***************************************************************************#


=D* "DMS RePack" BLACK BLUE
=L

=D "CMODE = [304]"
\vs[1]\vu[304]
\ved[1][NONE]\vs[304]HEAVY1
\ved[1][HEAVY1]\vs[304]HEAVY2
\ved[1][HEAVY2]\vs[304]BEST
\ved[1][BEST]\vs[304]NONE
\vc[1]

=D "LOW = [305]"
\vs[305]\q[^305][LOW TRACK?]

=D "HIGH = [306]"
\vs[306]\q[^306][HIGH TRACK?]

=[ -2 "START" WHITE BLUE
\vs[1]\f1[-][FROM which DMS File?][*.dms]
\vs[3]
\vs[2]\pa[Request][Do you want to OverWrite the DMS file?][Yes][][No][Yes][][No]
\ved[2][No]TO \f1[-][TO which DMS File?][*.dms]
\vu[50] REPACK \vu[1] \vu[3] CMODE \vu[304] LOW \vu[305] HIGH \vu[306]\w
\vc[1]\vc[2]\vc[3]

=P
=] -2

#***************************************************************************#
#*                                DMS VIEW                                 *#
#***************************************************************************#

=D* "DMS View" BLACK BLUE
=L

=D "[401]"
\vs[1]\vu[401]
\ved[1][FULL OFF]\vs[401][FULL ON]\vs[402][FULL]
\ved[1][FULL ON]\vs[401][FULL OFF]\vs[402][]
\vc[1]

=[ -2 "START" WHITE BLUE
\vu[50] VIEW \f1[-][Choose the DMS file to VIEW?][*.dms] \vu[402]\w

=P
=] -2

#***************************************************************************#
#*                                DMS TEXT                                 *#
#***************************************************************************#

=D* "DMS Text" BLACK BLUE
=L

=[ -2 "START" WHITE BLUE
\vu[50] VIEW \f1[-][Choose the DMS file to view TEXT?][*.dms]\w

=P
=] -2

#***************************************************************************#
#*                                DMS TEST                                 *#
#***************************************************************************#

=D* "DMS Test" BLACK BLUE
=L

=[ -2 "START" WHITE BLUE
\vu[50] VIEW \f1[-][Choose the DMS file to TEST?][*.dms]\w

=P
=] -2